% GAUTIER LE BIHAN - 2020
% Replication files for "Shocks vs Menu Costs: Patterns of Price Rigidity in an Estimated Multi-Sector Menu-Cost Model?" Review of Economics and Statistics
%
% This code produces Figure J
clear
clc
close all


load '..\..\Simu_identification\Fig_ident_appendix\sigma\res_estimd'


 figure; 
 subplot(2,2,3);
plot(res_estimd(5:14,4), res_estimd(5:14,5),'-k'); 
hold on
 plot([0.0320 0.0320],[0 3], '--r');
hold off
 xlabel('\sigma') % x-axis label
ylabel('Distance function') % y-axis label
ylim([0 1.5])

load '..\..\Simu_identification\Fig_ident_appendix\mu\res_estimd'

subplot(2,2,2);
 
 mygraph= plot(res_estimd(2:11,4), res_estimd(2:11,5),'-k'); 
hold on
 plot([0.0344 0.0344],[0 0.8], '--r');
hold off
 xlabel('\mu') % x-axis label
ylabel('Distance function') % y-axis label
 ylim([0 0.5])
 
load '..\..\Simu_identification\Fig_ident_appendix\lambda\res_estimd'

subplot(2,2,1);
 
 mygraph= plot(res_estimd(1:9,4), res_estimd(1:9,5),'-k'); 
hold on
 plot([0.05 0.05],[0 2], '--r');
hold off
 xlabel('\lambda') % x-axis label
ylabel('Distance function') % y-axis label
 ylim([0 1.2])

load '..\..\Simu_identification\Fig_ident_appendix\pa\res_estime'

subplot(2,2,4);
 
 mygraph= plot(res_estime(2:18,4), res_estime(2:18,5),'-k'); 
hold on
 plot([0.675 0.675],[0 0.04], '--r');
hold off
 xlabel('p_a') % x-axis label
ylabel('Distance function') % y-axis label
ylim([0 0.025])

 print('..\..\..\figures\appendix_fullident4.pdf','-dpdf','-fillpage')
 print('..\..\..\figures\appendix_fullident4','-depsc')
 
 

 